"?Cwg:Prompt ThisAllowed contains the users access rights @n-13 ThisAllowed: ThisAllowed ?ThisAllowed:Prompt ThisAllowed: ThisAllowed @n-13 ThisAllowed @n-13 %ControlPostEventHandling ?Button1 Accepted RETURN %RecordFilter ! example of SecWin workgroup filtering if CWG <> 0 if CWG = 1 and wag:department <> 'Technical Support' then exit. if CWG = 2 and wag:department <> 'Development' then exit. ! Explanation : ! if the user's Workgroup is set to 0 then all the depts are visible. ! if the user's Workgroup is set to 1, then only the Tech Support dept ! is visible. ! if the user's Workgroup is set to 2, then only the Development dept ! is visible. AppNum @n-13 AppNum: AppNum *?AppNum:Prompt oAppNum: AppNum :@n-13 !AppNum @n-13 umQueue AppNumQueue AppNumQueue: AppNumQueue :?AppNumQueue:Prompt AppNumQueue: AppNumQueue AppNumQueue AppNameDesc AppNameDesc: AppNameDesc :?AppNameDesc:Prompt AppNameDesc: AppNameDesc AppNameDesc ForceRefresh @n-13 ForceRefresh: ForceRefresh B?ForceRefresh:Prompt ompForceRefresh: iaForceRefresh wIn@n-13 EForceRefresh ind@n-13 @n-13 WindowInitialized @n-13 WindowInitialized: WindowInitialized N?WindowInitialized:Prompt ndWindowInitialized: pWindowInitialized @n-13 $WindowInitialized @n-13 CurrentTab CurrentTab: CurrentTab 6?CurrentTab:Prompt tCurrentTab: CurrentTab c@s80 CurrentTab CurrentTab CurrentTab: CurrentTab 6?CurrentTab:Prompt tCurrentTab: CurrentTab c@s80 CurrentTab CurrentTab CurrentTab: CurrentTab 6?CurrentTab:Prompt tCurrentTab: CurrentTab c@s80 CurrentTab ThisAllowed contains the users access rights @n-13 ThisAllowed: ThisAllowed :?ThisAllowed:Prompt ThisAllowed: n-1ThisAllowed @n-13 +ThisAllowed @n-13 ThisAllowed contains the users access rights @n-13 ThisAllowed: ThisAllowed :?ThisAllowed:Prompt ThisAllowed: n-1ThisAllowed @n-13 ThisAllowed @n-13 WindowOpened @n-13 WindowOpened: WindowOpened B?WindowOpened:Prompt WindowOpened: :WindowOpened qu@n-13 EWindowOpened qu@n-13 pplication Optio LocalResponse @n-13 LocalResponse: LocalResponse B?LocalResponse:Prompt LocalResponse: :LocalResponse qu@n-13 ELocalResponse qu@n-13 pplication Optio OriginalRequest @n-13 OriginalRequest: OriginalRequest F?OriginalRequest:Prompt OriginalRequest: ocaOriginalRequest @n-13 AOriginalRequest @n-13 pplication Optio LocalRequest @n-13 LocalRequest: LocalRequest ?LocalRequest:Prompt *LocalRequest: LocalRequest @n-13 LocalRequest 5@n-13 Application Optio WindowInitialized @n-13 WindowInitialized: WindowInitialized N?WindowInitialized:Prompt ndWindowInitialized: pWindowInitialized @n-13 7WindowInitialized @n-13 WindowInitialized @n-13 WindowInitialized: WindowInitialized N?WindowInitialized:Prompt ndWindowInitialized: pWindowInitialized @n-13 $WindowInitialized @n-13 _ _ e EMPRPT.DCT Clarion SecWin10$Activate_Security %ApplicName EmpRpt %SecWinExternal %ThisDll SecWin10$Call_SetDefaultFont %FontName Arial %FontSize %FontColor Black %FontStyle Regular #noedit #system win #model clarion dll #pragma debug(vid=>full) #compile EMPRP_RD.CLW-- GENERATED #compile EMPRP_RU.CLW-- GENERATED #compile EMPRP_SF.CLW-- GENERATED #compile EMPRPT15.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP001.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP002.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP003.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP004.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP005.clw /define(GENERATED=>on)-- GENERATED #pragma link(C%L%TPS%S%.LIB)-- GENERATED #pragma link(winpyr.ico) #pragma link(secwin16.lib) #link EMPRPT.exe %ModuleFilesUsed %Module TREPO001.clw TREPO002.clw WAGES TREPO003.clw WAGES TREPORT.clw EMPRP001.clw EMPRP002.clw WAGES EMPRP003.clw WAGES EMPRPT.clw EMPRP004.clw EMPRP005.clw %GenerationCompleted %Module TREPO001.clw TREPO002.clw TREPO003.clw TREPORT.clw EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw EMPRPT15.clw %ModuleVBXUsed %Module TREPO001.clw TREPO002.clw TREPO003.clw TREPORT.clw EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw %ModuleProcs %Module TREPO001.clw TREPO002.clw TREPO003.clw TREPORT.clw EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw %ModulePrintPreviewUsed %Module EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw %LastTarget32 %LastProgramExtension %LastApplicationDebug %LastApplicationLocalLibrary clw /define(GENERATED=>on)-- GENERATED #compile EMPRP001.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP002.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP003.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP004.clw /define(GENERATED=>on)-- GENERATED #compile EMPRP005.clw /define(GENERATED=>on)-- GENERATED #pragma link(C%L%TPS%S%.LIB)-- GENERATED #pragma link(winpyr.ico) #pragma link(secwin16.lib) #link EMPRPT.exe %ModuleFilesUsed %Module TREPO001.clw TREPO002.clw WAGES TREPO003.clw WAGES TREPORT.clw EMPRP001.clw EMPRP002.clw WAGES EMPRP003.clw WAGES EMPRPT.clw EMPRP004.clw EMPRP005.clw %GenerationCompleted %Module TREPO001.clw TREPO002.clw TREPO003.clw TREPORT.clw EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw EMPRPT15.clw %ModuleVBXUsed %Module TREPO001.clw TREPO002.clw TREPO003.clw TREPORT.clw EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw %ModuleProcs %Module TREPO001.clw TREPO002.clw TREPO003.clw TREPORT.clw EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw %ModulePrintPreviewUsed %Module EMPRP001.clw EMPRP002.clw EMPRP003.clw EMPRPT.clw EMPRP004.clw EMPRP005.clw %LastTarget32 %LastProgramExtension %LastApplicationDebug %LastApplicationLocalLibrary indow Tile &vertically Tile &horizontally &Cascade &Arrange icons &Help &Contents &Search for Help On... &How to Use Help &Guided Tour... !QBrowse Records BrowseWindow wag:Department,wag:Employee,wag:Salary %?List Browsing Records ?String1 Y119L|M~Department~@s30@100L|M~Employee~@s30@80D(12)~Salary~L(0)@N12.2@ Queue:Browse BrowseBox ?String1 ?String3 &Insert ?Insert ?Insert &Change ?Change ?Change &Delete ?Delete ?Delete &Select ?Select ?Select ?String4 "Close ?Close ?Close NOn this screen Insert, Change and Delete have restricted access. ?String2 1?String2 See the EXTENSIONS in the APP. ?String3 ?String4 @This browse also has WorkGroup filtering enabled. Valid workgroups are 0,1,2. See the embeds / extensions in the app for the example. OriginalRequest @n-13 OriginalRequest: OriginalRequest F?OriginalRequest:Prompt OriginalRequest: ocaOriginalRequest @n-13 AOriginalRequest @n-13 @n-13 LocalRequest @n-13 LocalRequest: LocalRequest B?LocalRequest:Prompt ompLocalRequest: iaLocalRequest wIn@n-13 ELocalRequest ind@n-13 @n-13 AppendedTitle @s119 AppendedTitle: AppendedTitle B?AppendedTitle:Prompt AppendedTitle: AppendedTitle @s119 AppendedTitle @s119 RecordChanged RecordChanged: RecordChanged >?RecordChanged:Prompt RecordChanged: RecordChanged )RecordChanged ag@n3 ActionMessage ActionMessage: ActionMessage B?ActionMessage:Prompt ActionMessage: ActionMessage EActionMessage ForceRefresh @n-13 ForceRefresh: ForceRefresh B?ForceRefresh:Prompt ompForceRefresh: iaForceRefresh wIn@n-13 CForceRefresh ind@n-13 @n-13 WindowOpened @n-13 WindowOpened: WindowOpened B?WindowOpened:Prompt WindowOpened: :WindowOpened qu@n-13 EWindowOpened qu@n-13 LocalResponse @n-13 LocalResponse: LocalResponse B?LocalResponse:Prompt LocalResponse: :LocalResponse qu@n-13 ELocalResponse qu@n-13 OriginalRequest @n-13 OriginalRequest: OriginalRequest F?OriginalRequest:Prompt OriginalRequest: ocaOriginalRequest @n-13 AOriginalRequest @n-13 LocalRequest @n-13 LocalRequest: LocalRequest B?LocalRequest:Prompt LocalRequest: LocalRequest @n-13 CLocalRequest @n-13 ForceRefresh @n-13 ForceRefresh: ForceRefresh B?ForceRefresh:Prompt ompForceRefresh: iaForceRefresh wIn@n-13 0ForceRefresh ind@n-13 @n-13 WindowInitialized @n-13 WindowInitialized: WindowInitialized N?WindowInitialized:Prompt ndWindowInitialized: pWindowInitialized @n-13 9WindowInitialized @n-13 DeptDepartment DeptDepartment: DeptDepartment DeptDepartment: E?DeptDepartment:Prompt DDeptDepartment brDeptDepartment Arial Gavin Halliday 98,653.00 (2.00 DeptEmployeeCount DeptEmployeeCount: DeptEmployeeCount Z?DeptEmployeeCount:Prompt DeptEmployeeCount: DeptEmployeeCount d.DeptEmployeeCount Created ?ARG:CRTIME ?ARG:CRDATE Modified ?ARG:MODTIME ?ARG:MODDATE Cancel ?CANCEL DeptSalaryCount @n17.2 DeptSalaryCount: DeptSalaryCount DeptSalaryCount )?DeptSalaryCount:Prompt DeptSalaryCount: "DeptSalaryCount @n17.2 .@n17.2 Created ?ARG:CRTIME ?ARG:CRDATE Modified ?ARG:MODTIME ?ARG:MODDATE Cancel ?CANCEL DeptDetails DeptDetails: DeptDetails DeptDetails: 1?DeptDetails:Prompt DeptDetails DeptDetails SalaryCount @n17.2 SalaryCount: SalaryCount SalaryCount: >?SalaryCount:Prompt SalaryCount SalaryCount @n17.2 @n17.2 EmployeeCount EmployeeCount: EmployeeCount EmployeeCount: J?EmployeeCount:Prompt EmployeeCount EmployeeCount @n-6 RecordStatus RecordStatus: RecordStatus >?RecordStatus:Prompt RecordStatus: s:RecordStatus ogr@n3 )RecordStatus ogr@n3 PercentProgress PercentProgress: PercentProgress B?PercentProgress:Prompt PercentProgress: clePercentProgress PercentProgress %@n-13 RecordsThisCycle @n-13 RecordsThisCycle: RecordsThisCycle A?RecordsThisCycle:Prompt ecoRecordsThisCycle: coRecordsThisCycle @n-13 RecordsThisCycle %@n-13 RecordsPerCycle @n-13 RecordsPerCycle: RecordsPerCycle F?RecordsPerCycle:Prompt RecordsPerCycle: sedRecordsPerCycle @n-13 ARecordsPerCycle @n-13 @n-13 RecordsProcessed @n-13 RecordsProcessed: RecordsProcessed A?RecordsProcessed:Prompt indRecordsProcessed: OpRecordsProcessed @n-13 RecordsProcessed #@n-13 RecordsToProcess @n-13 RecordsToProcess: RecordsToProcess A?RecordsToProcess:Prompt indRecordsToProcess: OpRecordsToProcess @n-13 RecordsToProcess %@n-13 WindowOpened @n-13 WindowOpened: WindowOpened B?WindowOpened:Prompt WindowOpened: :WindowOpened gr@n-13 WindowOpened @n-13 %@n-13 LocalResponse @n-13 LocalResponse: LocalResponse B?LocalResponse:Prompt LocalResponse: :LocalResponse gr@n-13 LocalResponse @n-13 %@n-13 LocalRequest @n-13 LocalRequest: LocalRequest B?LocalRequest:Prompt LocalRequest: s:LocalRequest ogr@n-13 LocalRequest @n-13 #@n-13 RejectRecord @n-13 RejectRecord: RejectRecord B?RejectRecord:Prompt RejectRecord: s:RejectRecord ogr@n-13 RejectRecord @n-13 %@n-13 RecordFiltered @n-13 RecordFiltered: RecordFiltered B?RecordFiltered:Prompt RecordFiltered: RecordFiltered @n-13 ERecordFiltered @n-13 ForceRefresh @n-13 ForceRefresh: ForceRefresh B?ForceRefresh:Prompt ompForceRefresh: iaForceRefresh wIn@n-13 CForceRefresh ind@n-13 @n-13 WindowOpened @n-13 WindowOpened: WindowOpened B?WindowOpened:Prompt WindowOpened: :WindowOpened qu@n-13 EWindowOpened qu@n-13 @n-13 LocalResponse @n-13 LocalResponse: LocalResponse B?LocalResponse:Prompt LocalResponse: :LocalResponse qu@n-13 0LocalResponse qu@n-13 @n-13 WindowOpened @n-13 WindowOpened: WindowOpened B?WindowOpened:Prompt WindowOpened: :WindowOpened qu@n-13 EWindowOpened qu@n-13 LocalResponse @n-13 LocalResponse: LocalResponse B?LocalResponse:Prompt LocalResponse: :LocalResponse qu@n-13 ELocalResponse qu@n-13 OriginalRequest @n-13 OriginalRequest: OriginalRequest F?OriginalRequest:Prompt OriginalRequest: ocaOriginalRequest @n-13 7OriginalRequest @n-13 LocalRequest @n-13 LocalRequest: LocalRequest B?LocalRequest:Prompt LocalRequest: LocalRequest @n-13 @LocalRequest @n-13 wag:Salary *Update Record ... FormWindow 5wag:Employee yeewag:Department e@N12.2 !ActionMessage &Salary: &Employee: ?wag:Employee:Prompt ?wag:Employee:Prompt ry:@s30 wag:Employee &Department: ?String2 ?wag:Department:Prompt ?wag:Department:Prompt %wag:Department ?String2 ?String3 1?wag:Salary:Prompt ?wag:Salary:Prompt ?String3 wag:Salary ActionMessage +Cancel ?Cancel ?Cancel >On this screen the Salary has restricted access. 7See the EXTENSIONS in the APP. &inimize on run &Wait for termination on run &Clarion &Setup &Window Tile &vertically Tile &horizontally &Cascade &Arrange icons &Help &Contents &Search for Help On... &How to Use Help &Guided Tour... !QBrowse Records BrowseWindow wag:Department,wag:Employee,wag:Salary %?List Browsing Records ?String1 Y119L|M~Department~@s30@100L|M~Employee~@s30@80D(12)~Salary~L(0)@N12.2@ Queue:Browse BrowseBox ?String1 ?String3 &Insert ?Insert ?Insert &Change ?Change ?Change &Delete ?Delete ?Delete &Select ?Select ?Select ?String4 "Close ?Close ?Close NOn this screen Insert, Change and Delete have restricted access. ?String2 1?String2 See the EXTENSIONS in the APP. ?String3 ?String4 @This browse also has WorkGroup filtering enabled. Valid workgroups are 0,1,2. See the embeds / extensions in the app for the example. Arial window Employee Report ?String1 ?String2 ?String1 If you have gotten this far, you probably ?String3 -13?String2 @have noticed that there were some warnings ?String4 ?String3 @0compiling this report. These warnings can ?String5 V&D?String4 ratbe safely ignored. We urge you to read ?String6 Fil?String5 the online help about this report which ?String7 p?String6 p%Eexplains these warnings and how the report ?Button1 ?String7 was written. ?Button1 ?String8 NS$?String9 ?String8 GenThis APP has been modified to show examples of the SecWin package. ?String10 ?String9 VieNew Font Feature ?String10 t See the Global Extensions for seting the Font used by SecWin. gle Document Menu ~TPLProcMenu HMenu MENU.TPW View a ASCII (text) file ~TPLProcViewer PViewer VIEWER.TPW Sequential Record Processor ~TPLProcProcess File(s) to Process Process GPProcess.TPW BrowseByDepartment Browse with update and select Clarion$Browse Clarion$BrowseBox B%LocatorType %HotFields %HotField %HotFields %RecordFilter %RangeField %RangeLimitType Current Value %RangeLimit %RangeLow %RangeHigh %RangeFile %BrowseTotals %BrowseTotalTarget %BrowseTotals %BrowseTotalType %BrowseTotals %BrowseTotalField %BrowseTotals %BrowseTotalBasedOn %BrowseTotals %BrowseTotalCondition %BrowseTotals %ScrollBehavior Fixed Thumb %ScrollKeyDistribution Alpha %CustomKeyDistribution %KeyDistributionValue %CustomKeyDistribution %DistributionSteps 20%EnableQuickScan %OverrideDefaultLocator %OverrideLocator %ResetFields %ResetField %ResetFields %ScrollAlpha %ScrollNumeric %ScrollAlt %SortOrder %SortCondition %SortOrder %SortKey %SortOrder %SortLocatorType %SortOrder %SortOverrideDefaultLocator %SortOrder %SortOverrideLocator %SortOrder %SortRecordFilter %SortOrder %SortRangeField %SortOrder %SortRangeLimitType %SortOrder %SortRangeLimit %SortOrder %SortRangeLow %SortOrder %SortRangeHigh %SortOrder %SortRangeFile %SortOrder %SortResetFields %SortOrder %SortResetField %SortResetFields %SortScrollBehavior %SortOrder %SortScrollKeyDistribution %SortOrder %SortCustomKeyDistribution %SortOrder %SortKeyDistributionValue %SortCustomKeyDistribution %SortScrollAlpha %SortOrder %SortScrollNumeric %SortOrder %SortScrollAlt %SortOrder %HotFieldBound %HotFields %ControlFieldForegroundNormal %Control %ControlField ?List wag:Department wag:Employee wag:Salary %ControlFieldBackgroundNormal %Control %ControlField ?List wag:Department wag:Employee wag:Salary %ControlFieldForegroundSelected %Control %ControlField ?List wag:Department wag:Employee wag:Salary %ControlFieldBackgroundSelected %Control %ControlField ?List wag:Department wag:Employee wag:Salary %ConditionalColors %Control %ControlField ?List wag:Department wag:Employee wag:Salary %ColorCondition %ConditionalColors ?List %ConditionalControlFieldForegroundNormal %ConditionalColors ?List %ConditionalControlFieldBackgroundNormal %ConditionalColors ?List %ConditionalControlFieldForegroundSelected %ConditionalColors ?List %ConditionalControlFieldBackgroundSelected %ConditionalColors ?List %ControlFieldIcon %Control %ControlField ?List wag:Department wag:Employee wag:Salary %ConditionalIcons %Control %ControlField ?List wag:Department wag:Employee wag:Salary %IconCondition %ConditionalIcons ?List %ConditionalControlFieldIcon %ConditionalIcons ?List Clarion$BrowseSelectButton %HideIfDisabled %SelectViaPopup Clarion$BrowseUpdateButtons %UpdateProcedure %EditViaPopup Clarion$CloseButton SecWin10$User_Screen_Security %ScreenName Browse Department %RestrictEqu1 ?Change %RestrictNam1 Change %RestrictAct1 Disable %RestrictEquiv1 ?Insert %RestrictEqu2 ?Delete %RestrictNam2 Delete %RestrictAct2 Disable %RestrictEquiv2 %RestrictEqu3 ?Insert %RestrictNam3 Insert %RestrictAct3 Disable %RestrictEquiv3 %RestrictEqu4 %RestrictNam4 %RestrictAct4 %RestrictEquiv4 %RestrictEqu5 %RestrictNam5 %RestrictAct5 %RestrictEquiv5 %RestrictEqu6 %RestrictNam6 %RestrictAct6 %RestrictEquiv6 %RestrictEqu7 %RestrictNam7 %RestrictAct7 %RestrictEquiv7 SecWin10$User_WorkGroup_Filtering ReportByDepartment Default Report Procedure Clarion$Report UpdateProc Default record update Clarion$Form Clarion$SaveButton %InsertAllowed %ChangeAllowed %DeleteAllowed %PrimingFields %PrimedField %PrimingFields %PrimedValue %PrimingFields %InsertMessage Record will be Added %ChangeMessage Record will be Changed %DeleteMessage Record will be Deleted %MessageLocation None/Window Control %MessageStatusSection %AppendToTitle %AppendToTitleID %ActionOnDelete Standard Warning %ActionOnCancel Offer to save changes Clarion$CancelButton SecWin10$User_Screen_Security %ScreenName Update Department %RestrictEqu1 ?wag:Salary %RestrictNam1 Salary %RestrictAct1 %RestrictEquiv1 %RestrictEqu2 %RestrictNam2 %RestrictAct2 %RestrictEquiv2 %RestrictEqu3 %RestrictNam3 %RestrictAct3 %RestrictEquiv3 %RestrictEqu4 %RestrictNam4 %RestrictAct4 %RestrictEquiv4 %RestrictEqu5 %RestrictNam5 %RestrictAct5 %RestrictEquiv5 %RestrictEqu6 %RestrictNam6 %RestrictAct6 %RestrictEquiv6 %RestrictEqu7 %RestrictNam7 %RestrictAct7 %RestrictEquiv7 SplashWarning Clarion$Window ?Item15 &Users "Employee Report &File ri?FileMenu ,I&Print Setup ... ?PrintSetup Setup printer itSTD:PrintSetup >E&xit E(?Exit MSExit this application owSTD:Close &Edit op?EditMenu >Cu&t ),U?Cut astRemove item to Windows Clipboard ClSTD:Cut =&Copy SE?Copy seCopy item to Windows Clipboard STD:Copy B&Paste s?Paste pPaste contents of Windows Clipboard STD:Paste " &Browse ?BrowseMenu Browse data JBrowse by &Department ?BrowseDepartmentItem 'CBrowse by Department "%&Report ?ReportMenu Print a report RReport by &Department SG?ReportDepartmentItem wsReport by Department >&Window Create and Arrange windows DSTD:WindowList BT&ile ?Tile Make all open windows visible deSTD:TileWindow E&Cascade TEM?Cascade foStack all open windows pSTD:CascadeWindow R&Arrange Icons t?Arrange p')Align all window icons HSTD:ArrangeIcons &Help NDWindows Help N&Contents ?Helpindex View the contents of the help file STD:HelpIndex A&Search for Help On... ?HelpSearch Search for help on a subject STD:HelpSearch &How to Use Help =?HelpOnHelp How to use Windows Help STD:HelpOnHelp AppFrame Browse ?Item16 ?String1 %?Item17 Item&17 &Change Password V?String2 .?String1 1You will have had to log on to get to this screen. J?String3 1?String2 uSee the EXTENSIONS in the APP. r?String4 ?String3 You can also call the Browse Users, Change Password, Change Login and Lock ?String4 ?String5 ?String6 R?String5 Screen functions in the FILE menu. See the Menu Editor in the APP. ?String6 @You can also check out the EXTENSIONS in Global in the APP for Global settings. The Browse by Department screen has an example of Screen Security. $&?LockScreen Lock &Screen $7?ChangeLogin geLChange &Login ?Button1 0?BrowseButtonOnToolBar Arial DeptBreak wag:Department detail DeptDepartment @N12.2 Department T?Dept NG(DeptSalaryCount wag:Department report Totals for department &Employees wag:Employee DeptBreak SalaryCount wag:Salary deptsummary Totals for Employees EmployeeCount Awag:Department DeptBreak epwag:Department wag:Employee Salaries: @N12.2 TDeptBreak wag:Salary summary ,Totals for all departments *wag:Salary DeptDepartment DeptEmployeeCount Salaries: @N12.2 SalaryCount Department ?dept2 Employees oyeeCount Salaries: @N12.2 ryCount Salary Department wag:Department,,?wag:Department:2 Department wag:Department &Totals this page Employees TREwag:Employee,99 wag:Employee @N12.2B Salary wag:Salary Salaries ?String17 wag:Employee,,?wag:Employee:2 wag:Salary,,?wag:Salary:2 wag:Department,,?wag:Department:3 wag:Employee,,?wag:Employee:3 wag:Salary,,?wag:Salary:3 %ProcedureSetup CLEAR(DeptDetails) CLEAR(EmployeeCount) CLEAR(SalaryCount) %BeforePrint IF DeptDepartment <> WAG:Department IF DeptDepartment THEN ADD(DeptDetails) END CLEAR(DeptDetails) DeptDepartment = WAG:Department DeptEmployeeCount += 1 DeptSalaryCount += WAG:Salary EmployeeCount += 1 SalaryCount += WAG:Salary %BeforeClosingReport IF DeptDepartment THEN ENDPAGE(Report) ADD(DeptDetails) SETTARGET(Report) ?Dept{PROP:HIDE}=1 wag:department = '' ?Dept2{PROP:HIDE}=1 ?Tot{PROP:HIDE}=1 ?Emp{PROP:HIDE}=1 ?Sal{PROP:HIDE}=1 99{PROP:HIDE}=1 8! 99 is the field equate number given to the employee U! total field on the report wag:salary=0 LOOP i# = 1 TO RECORDS(DeptDetails) GET(DeptDetails, i#) UPRINT(RPT:DeptSummary) END FREE(DeptDetails) PRINT(RPT:summary) %AfterWindowOpening ! this was here in the original Clarion App AppFrame{PROP:ICON} = '~winpyr.ico' %WindowEventHandling OpenWindow %ControlPostEventHandling ?Item15 Accepted ?Item16 Accepted ?LockScreen Accepted ?ChangeLogin Accepted %Parameters %WindowMessage %EnablePrintPreview %RecordFilter %RangeField %ApproxRecordCount %RangeLimitType Current Value %RangeLimit %RangeLow %RangeHigh %ReturnValue %EnableQuickScan %RangeFile %HotFields %HotField %HotFields %HotFieldBound %HotFields %DetailFilter %ReportControl %DetailFilterExclusive %ReportControl i'%ProgramAuthor %MessageDescription %WarnOnLogoutError %GlobalExternal %INIActive %INIFile Program Name.INI %ININame %DefaultThreaded Use File Setting %DefaultCreate Use File Setting %DefaultExternal None External %DefaultExternalSource %DefaultExternalAPP %DefaultExport %DefaultCloseFile Close the File %DefaultOpenMode Share %DefaultUserAccess Read/Write %DefaultOtherAccess Deny None %OverrideThreaded %File WAGES Use Default %OverrideCreate %File WAGES Use Default %OverrideExternal %File WAGES Use Default %OverrideExternalSource %File WAGES %OverrideExternalAPP %File WAGES '%OverrideExport %File WAGES %OverrideCloseFile %File WAGES Use Default %OverrideOpenMode %File WAGES Use Default %OverrideUserAccess %File WAGES Use Default %OverrideOtherAccess %File WAGES Use Default %DefaultGenerate D%DefaultRILogout %OverrideGenerate %File WAGES %OverrideRILogout %File WAGES %CreateShipList %ExportGlobalData %PPMethod !REGISTER %ExportMapFile %ExportEquFile %ExportEquates %GenerateEmbedComments %GenerateEmptyEmbeds %Parameters %ReturnValue %WindowOperationMode Use WINDOW setting %INISaveWindow %ButtonAction %Control ?String1 No Special Action ?Button1 No Special Action ?String3 No Special Action ?String9 No Special Action ?String10 No Special Action %ButtonRunName %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %ButtonRunParameters %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %ButtonProcedure %Control ?String1 ?Button1 ?String3 ?String9 ?String10 +%ButtonThread %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %ButtonThreadStack %Control ?String1 25000 ?Button1 25000 ?String3 25000 ?String9 25000 ?String10 25000 %ButtonParameters %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %PreLookupKey %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %PreLookupField %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %PreLookupProcedure %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %PostLookupKey %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %PostLookupField %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %PostLookupProcedure %Control ?String1 ?Button1 ?String3 ?String9 ?String10 1%ForceWindowRefresh %Control ?String1 ?Button1 ?String3 ?String9 ?String10 %CheckedAssigns %Control %CheckedAssignVariable %CheckedAssigns ?String1 ?Button1 ?String3 ?String9 ?String10 %CheckedAssignValue %CheckedAssigns ?String1 ?Button1 ?String3 ?String9 ?String10 %CheckedHides %Control %CheckedControl %CheckedHides ?String1 ?Button1 ?String3 ?String9 ?String10 %CheckedControlAction %CheckedHides ?String1 ?Button1 ?String3 ?String9 ?String10 %UncheckedAssigns %Control %UncheckedAssignVariable %UncheckedAssigns ?String1 ?Button1 ?String3 ?String9 ?String10 %UncheckedAssignValue %UncheckedAssigns ?String1 ?Button1 ?String3 ?String9 ?String10 %UnCheckedHides %Control %UnCheckedControl %UnCheckedHides ?String1 ?Button1 ?String3 ?String9 ?String10 %UnCheckedControlAction %UnCheckedHides ?String1 ?Button1 ?String3 ?String9 ?String10 %ButtonRequest %Control ?Button1 ?String9 ?String10 %PostLookupDuringValidate %Control ?String9 ?String10 Clarion$Clarion Clarion$GENERATED Clarion$GENERATED Clarion$GENERATED Clarion$GENERATED Clarion$GENERATED Default MDI Frame Clarion$Frame Clarion$DateTimeDisplay %DisplayDate %DatePicture October 31, 1959 %OtherDatePicture %ShowDayOfWeek %DateDisplayLocation Control %DateStatusSection %DateControl %DisplayTime %TimePicture 5:30PM %OtherTimePicture %TimeDisplayLocation Control %TimeStatusSection %TimeControl SecWin10$User_Login %AreaName %SecCase %SecOptional %ThreeTries SecWin10$Call_OperatorBrowse SecWin10$Call_ChangePassword SecWin10$Call_Current %StatusPos %CurrentCall Current Name %UserPrompt 'Current User : ' %StatusPos %CurrentCall Current Name %UserPrompt 'Current User : ' SecWin10$Call_LockScreen SecWin10$Call_ChangeLogin !SecWin10$User_Screen_Security %ScreenName %RestrictEqu1 ?BrowseDepartmentItem %RestrictNam1 Browse %RestrictAct1 Disable %RestrictEquiv1 ?BrowseButtonOnToolBar %RestrictEqu2 %RestrictNam2 %RestrictAct2 %RestrictEquiv2 %RestrictEqu3 %RestrictNam3 %RestrictAct3 %RestrictEquiv3 %RestrictEqu4 %RestrictNam4 %RestrictAct4 %RestrictEquiv4 %RestrictEqu5 %RestrictNam5 %RestrictAct5 %RestrictEquiv5 %RestrictEqu6 %RestrictNam6 %RestrictAct6 %RestrictEquiv6 %RestrictEqu7 %RestrictNam7 %RestrictAct7 %RestrictEquiv7 %ButtonAction %Control ?BrowseDepartmentItem Call a Procedure ?ReportDepartmentItem Call a Procedure No Special Action ?FileMenu No Special Action ?PrintSetup No Special Action ?Exit No Special Action ?EditMenu No Special Action No Special Action ?Copy No Special Action ?Paste No Special Action ?BrowseMenu No Special Action ?ReportMenu No Special Action ?Tile No Special Action ?Cascade No Special Action ?Arrange No Special Action ?Helpindex No Special Action ?HelpSearch No Special Action ?HelpOnHelp No Special Action ?Item15 No Special Action ?Item16 No Special Action ?Item17 No Special Action ?String1 No Special Action ?LockScreen No Special Action ?ChangeLogin No Special Action ?BrowseButtonOnToolBar Call a Procedure %ButtonProcedure %Control ?BrowseDepartmentItem ?ReportDepartmentItem ?FileMenu ?PrintSetup ?Exit ?EditMenu ?Copy ?Paste ?BrowseMenu ?ReportMenu ?Tile ?Cascade ?Arrange ?Helpindex ?HelpSearch ?HelpOnHelp ?Item15 ?Item16 ?Item17 ?String1 ?LockScreen ?ChangeLogin ?BrowseButtonOnToolBar %ButtonThread %Control ?BrowseDepartmentItem ?ReportDepartmentItem ?FileMenu ?PrintSetup ?Exit ?EditMenu ?Copy ?Paste ?BrowseMenu ?ReportMenu ?Tile ?Cascade ?Arrange ?Helpindex ?HelpSearch ?HelpOnHelp ?Item15 ?Item16 ?Item17 ?String1 ?LockScreen ?ChangeLogin ?BrowseButtonOnToolBar %ButtonThreadStack %Control ?BrowseDepartmentItem 25000 ?ReportDepartmentItem 25000 ?FileMenu 25000 ?PrintSetup 25000 ?Exit 25000 ?EditMenu 25000 25000 ?Copy 25000 ?Paste 25000 ?BrowseMenu 25000 ?ReportMenu 25000 ?Tile 25000 ?Cascade 25000 ?Arrange 25000 ?Helpindex 25000 ?HelpSearch 25000 ?HelpOnHelp 25000 ?Item15 25000 ?Item16 25000 ?Item17 25000 ?String1 25000 ?LockScreen 25000 ?ChangeLogin 25000 ?BrowseButtonOnToolBar 25000 %Parameters %INISaveWindow %ButtonRunName %Control ?FileMenu ?PrintSetup ?Exit ?EditMenu ?Copy ?Paste ?BrowseMenu ?BrowseDepartmentItem ?ReportMenu ?ReportDepartmentItem ?Tile ?Cascade ?Arrange ?Helpindex ?HelpSearch ?HelpOnHelp ?Item15 ?Item16 ?Item17 ?String1 ?LockScreen ?ChangeLogin ?BrowseButtonOnToolBar %ButtonRunParameters %Control ?FileMenu ?PrintSetup ?Exit ?EditMenu ?Copy ?Paste ?BrowseMenu ?BrowseDepartmentItem ?ReportMenu ?ReportDepartmentItem ?Tile ?Cascade ?Arrange ?Helpindex ?HelpSearch ?HelpOnHelp ?Item15 ?Item16 ?Item17 ?String1 ?LockScreen ?ChangeLogin ?BrowseButtonOnToolBar %ButtonParameters %Control ?FileMenu ?PrintSetup ?Exit ?EditMenu ?Copy ?Paste ?BrowseMenu ?BrowseDepartmentItem ?ReportMenu ?ReportDepartmentItem ?Tile ?Cascade ?Arrange ?Helpindex ?HelpSearch ?HelpOnHelp ?Item15 ?Item16 ?Item17 ?String1 ?LockScreen ?ChangeLogin ?BrowseButtonOnToolBar %PreLookupKey %Control ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %PreLookupField %Control ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %PreLookupProcedure %Control ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %PostLookupKey %Control ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %PostLookupField %Control ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %PostLookupProcedure %Control ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %ForceWindowRefresh %Control ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %CheckedAssigns %Control %CheckedAssignVariable %CheckedAssigns ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %CheckedAssignValue %CheckedAssigns ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %CheckedHides %Control %CheckedControl %CheckedHides ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %CheckedControlAction %CheckedHides ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %UncheckedAssigns %Control %UncheckedAssignVariable %UncheckedAssigns ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %UncheckedAssignValue %UncheckedAssigns ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %UnCheckedHides %Control %UnCheckedControl %UnCheckedHides ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %UnCheckedControlAction %UnCheckedHides ?Item15 ?Item16 ?String1 ?LockScreen ?ChangeLogin ?BrowseDepartmentItem ?BrowseButtonOnToolBar %ReturnValue %ButtonRequest %Control ?PrintSetup ?Item15 ?Item16 ?LockScreen ?ChangeLogin ?Exit ?Copy ?Paste ?BrowseDepartmentItem ?ReportDepartmentItem ?Tile ?Cascade ?Arrange ?Helpindex ?HelpSearch ?HelpOnHelp ?BrowseButtonOnToolBar %PostLookupDuringValidate %Control ?Item15 ?BrowseDepartmentItem ?BrowseButtonOnToolBar %Parameters %WindowOperationMode Use WINDOW setting %INISaveWindow %ButtonAction %Control No Special Action ?Cancel No Special Action No Special Action %ButtonRunName %Control ?Cancel %ButtonRunParameters %Control ?Cancel %ButtonProcedure %Control ?Cancel %ButtonThread %Control ?Cancel %ButtonThreadStack %Control 25000 ?Cancel 25000 25000 %ButtonParameters %Control ?Cancel %PreLookupKey %Control ?wag:Employee ?wag:Department ?wag:Salary %PreLookupField %Control ?wag:Employee ?wag:Department ?wag:Salary %PreLookupProcedure %Control ?wag:Employee ?wag:Department ?wag:Salary %PostLookupKey %Control ?wag:Employee ?wag:Department ?wag:Salary %PostLookupField %Control ?wag:Employee ?wag:Department ?wag:Salary %PostLookupProcedure %Control ?wag:Employee ?wag:Department ?wag:Salary %ForceWindowRefresh %Control ?wag:Employee ?wag:Department ?wag:Salary %CheckedAssigns %Control %CheckedAssignVariable %CheckedAssigns %CheckedAssignValue %CheckedAssigns %CheckedHides %Control %CheckedControl %CheckedHides %CheckedControlAction %CheckedHides %UncheckedAssigns %Control %UncheckedAssignVariable %UncheckedAssigns %UncheckedAssignValue %UncheckedAssigns %UnCheckedHides %Control %UnCheckedControl %UnCheckedHides %UnCheckedControlAction %UnCheckedHides %ReturnValue %ButtonRequest %Control %PostLookupDuringValidate %Control %Parameters %WindowOperationMode Use WINDOW setting %INISaveWindow %ButtonAction %Control ?Insert No Special Action ?Change No Special Action ?Delete No Special Action ?Select No Special Action ?Close No Special Action ?String3 No Special Action ?String4 No Special Action No Special Action %ButtonRunName %Control ?Insert ?Change ?Delete ?Select ?Close ?String3 ?String4 %ButtonRunParameters %Control ?Insert ?Change ?Delete ?Select ?Close ?String3 ?String4 %ButtonProcedure %Control ?Insert ?Change ?Delete ?Select ?Close ?String3 ?String4 %ButtonThread %Control ?Insert ?Change ?Delete ?Select ?Close ?String3 ?String4 %ButtonThreadStack %Control ?Insert ?Change ?Delete ?Select ?Close ?String3 25000 ?String4 25000 25000 %ButtonParameters %Control ?Insert ?Change ?Delete ?Select ?Close ?String3 ?String4 %PreLookupKey %Control ?String3 ?String4 %PreLookupField %Control ?String3 ?String4 %PreLookupProcedure %Control ?String3 ?String4 %PostLookupKey %Control ?String3 ?String4 %PostLookupField %Control ?String3 ?String4 %PostLookupProcedure %Control ?String3 ?String4 %ForceWindowRefresh %Control ?String3 ?String4 %CheckedAssigns %Control %CheckedAssignVariable %CheckedAssigns ?String3 ?String4 %CheckedAssignValue %CheckedAssigns ?String3 ?String4 %CheckedHides %Control %CheckedControl %CheckedHides ?String3 ?String4 %CheckedControlAction %CheckedHides ?String3 ?String4 %UncheckedAssigns %Control %UncheckedAssignVariable %UncheckedAssigns ?String3 ?String4 %UncheckedAssignValue %UncheckedAssigns ?String3 ?String4 %UnCheckedHides %Control %UnCheckedControl %UnCheckedHides ?String3 ?String4 %UnCheckedControlAction %UnCheckedHides ?String3 ?String4 %ReturnValue %ButtonRequest %Control ?Insert ?Change ?Delete ?Select ?Close ?String3 ?String4 %PostLookupDuringValidate %Control ?String3 ?String4